home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / mathtics / nonlin24 / circle.nlr < prev    next >
Text File  |  1993-06-23  |  544b  |  28 lines
  1. Title Fit circle to group of points
  2. Register            ! Please register your use
  3. Variable Xp            ! X coordinate of point
  4. Variable Yp            ! Y coordinate of point
  5. Parameter Xc            ! X position of circle center
  6. Parameter Yc            ! Y position of circle center
  7. Parameter R            ! Radius of circle
  8. Function sqrt((Xp-Xc)^2 + (Yp-Yc)^2) - R
  9. Data
  10. 10.7  14.7
  11. 13.2  12.4
  12. 15.7  14.4
  13. 16.0  11.0
  14. 14.9   8.9
  15. 16.6   8.3
  16. 13.4   6.1
  17. 12.0   3.6
  18.  9.2   5.1
  19.  6.2   4.6
  20.  5.0   7.0
  21.  5.0   8.2
  22.  3.6  10.0
  23.  5.0  10.2
  24.  3.6  11.8
  25.  5.0  14.8
  26.  7.4  14.6
  27.  9.4  16.5
  28.